function! FoldByParagraphFunction()
  set fde=getline(v:lnum)=~'^\\s*$'&&getline(v:lnum+1)=~'\\S'?'<1':1
  set fdm=expr
endfunction

command! FoldByParagraph silent! call FoldByParagraphFunction()
